home *** CD-ROM | disk | FTP | other *** search
/ The Real Yellow Pages - Tampa Bay 2009 / The Real Yellow Pages - Tampa Bay 2009.iso / pc / setup.exe / $R7 / EZListings.JSS < prev   
Encoding:
Text File  |  2005-02-18  |  1.2 KB  |  55 lines
  1. ; script file for EZListings
  2. Include "hjconst.jsh" ; default HJ constants
  3.  
  4. ; speak the Window Title whenever the arrow keys are pressed
  5.  
  6. Script PageControlUpArrow ()
  7. TypeKey("UpArrow")
  8. Pause()
  9. SayWindowTypeAndText (GetCurrentWindow())
  10. EndScript
  11.  
  12. Script pagecontroldownarrow ()
  13. TypeKey("DownArrow")
  14. Pause()
  15. SayWindowTypeAndText (GetCurrentWindow())
  16. EndScript
  17.  
  18. Script PageControlLeftArrow ()
  19. TypeKey("LeftArrow")
  20. Pause()
  21. SayWindowTypeAndText (GetCurrentWindow())
  22. EndScript
  23.  
  24. Script PageControlRightArrow ()
  25. TypeKey("RightArrow")
  26. Pause()
  27. SayWindowTypeAndText (GetCurrentWindow())
  28. EndScript
  29.  
  30. Void Function SayFocusedWindow ()
  31. ; page label edit
  32. if (GetControlID(GetFocus()) == 1062) then
  33.     if (GetWindowClass(GetFocus()) == "Edit") then
  34.         Say("Page # edit", OT_HELP)
  35.         return
  36.     endIf
  37. endIf
  38. ; MapIt shade
  39. ; State combo
  40. if (GetControlID(GetFocus()) == 1050) then
  41.     if (GetWindowClass(GetFocus()) == "ComboBox") then
  42.         Say("State: combo box", OT_HELP)
  43.         return
  44.     endIf
  45. endIf
  46. ; Zip code extension
  47. if (GetControlID(GetFocus()) == 1101) then
  48.     if (GetWindowClass(GetFocus()) == "Edit") then
  49.         Say("Zip Code extension edit", OT_HELP)
  50.         return
  51.     endIf
  52. endIf
  53. SayFocusedWindow()
  54. EndFunction
  55.